-- card: 2930 from stack: in.0 -- bmap block id: 0 -- flags: 0000 -- background id: 2792 -- name: -- part 1 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=15 top=309 right=332 bottom=209 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Change WHOLE Folder's TYPE ----- HyperTalk script ----- on mouseUp put getpathname() into appname if appname = "" then exit to hypercard put "This takes a WHOLE FOLDER and changes any file content's TYPE !" & return into card field status put "Folders inside this one will NOT be affected" & return after card field status put "Path you picked =" & appname & return after card field status put length of appname into i repeat until i <= 0 if char i of appname = ":" then put i into x put 0 into i end if subtract 1 from i end repeat put "" into out put 0 into z repeat until z = x put out & char z of appname into out add 1 to z end repeat put out & ":" into folder put "Using folder path =" & folder & return after card field status ask "Change TYPE to what?" with "TEXT" if it = "" then exit mouseup put it into changetype answer "Not reversable, are you sure?" with "YES" or "CANCEL" if it = "CANCEL" then put "A BIG MESS WAS CANCLED, GOOD THING!" & return after card field status exit to hypercard end if put files(folder,"",0) into temp put 1 into i -- and show file names repeat until line i of temp is empty put folder & line i of temp into appname get gettype(appname) if the number of chars of it = 4 then put line i of temp & " TYPE = ”" &it&"” " after card field status else put line i of temp & " TYPE NOT AVAILABLE " after card field status end if settype appname,changetype if the result ≠ "" then put "- NOT CHANGED!!" &return after card field status else get gettype(appname) if the number of chars of it = 4 then put " Changed to ”" &it&"” "&return after card field status else put " TYPE STILL NOT AVAILABLE "&return after card field status end if end if add 1 to i end repeat put " -- DONE --" & return after card field status end mouseUp -- part 2 (button) -- low flags: 00 -- high flags: A003 -- rect: left=420 top=216 right=239 bottom=510 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ABOUT ----- HyperTalk script ----- on mouseUp show card field "info" repeat until the mouse is down end repeat hide card field "info" end mouseUp -- part 4 (field) -- low flags: 00 -- high flags: 0007 -- rect: left=8 top=28 right=212 bottom=510 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 4 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: status -- part 5 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=15 top=280 right=303 bottom=209 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Change ONE File's TYPE ----- HyperTalk script ----- on mouseUp put getpathname() into appname if appname = "" then exit to hypercard put "This changes a FILE's TYPE !" & return into card field status put "File you picked =" & appname & return after card field status put appname into folder ask "Change TYPE to what?" with "TEXT" if it = "" then exit mouseup put it into changetype answer "Not reversable, are you sure?" with "YES" or "CANCEL" if it = "CANCEL" then put "A BIG MESS WAS CANCLED, GOOD THING!" & return after card field status exit to hypercard end if put folder into appname get gettype(appname) if the number of chars of it = 4 then put " TYPE = ”" &it&"” " after card field status else put " TYPE NOT AVAILABLE " after card field status end if settype appname,changetype if the result ≠ "" then put "- NOT CHANGED!!" &return after card field status else get gettype(appname) if the number of chars of it = 4 then put " Changed to ”" &it&"” "&return after card field status else put " TYPE STILL NOT AVAILABLE "&return after card field status end if end if put " -- DONE --" & return after card field status end mouseUp -- part 6 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=15 top=221 right=244 bottom=209 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: LIST a Folder's TYPES ----- HyperTalk script ----- on mouseUp put getpathname() into appname if appname = "" then exit to hypercard put "This shows all files in a folder & the types" & return into card field status put "Folders inside this one will NOT be read" & return after card field status put "Path you picked =" & appname & return after card field status put length of appname into i repeat until i <= 0 if char i of appname = ":" then put i into x put 0 into i end if subtract 1 from i end repeat put "" into out put 0 into z repeat until z = x put out & char z of appname into out add 1 to z end repeat put out & ":" into folder put "Using folder path =" & folder & return after card field status put files(folder,"",0) into temp put 1 into i -- and show file names repeat until line i of temp is empty put folder & line i of temp into appname get gettype(appname) if the number of chars of it = 4 then put line i of temp & " TYPE = ”" &it&"” "&return after card field status else put line i of temp & " TYPE NOT AVAILABLE "&return after card field status end if add 1 to i end repeat put " -- DONE --" & return after card field status end mouseUp -- part 7 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=223 top=309 right=332 bottom=417 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Try to DeMacBinify a FOLDER ----- HyperTalk script ----- on mouseUp put getpathname() into appname if appname = "" then exit to hypercard put "This takes a WHOLE FOLDER and TRIES to MacDebinify every file !" & return into card field status put "If a file is converted, it is saved with the extension .CNV" & return after card field status put "Folders inside this one will NOT be affected" & return after card field status put "Path you picked =" & appname & return after card field status put length of appname into i repeat until i <= 0 if char i of appname = ":" then put i into x put 0 into i end if subtract 1 from i end repeat put "" into out put 0 into z repeat until z = x put out & char z of appname into out add 1 to z end repeat put out & ":" into folder put "Using folder path =" & folder & return after card field status answer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL" if it = "CANCEL" then put "CANCLED, GOOD THING!" & return after card field status exit to hypercard end if put files(folder,"",0) into temp put 1 into i -- and show file names repeat until line i of temp is empty put folder & line i of temp into appname get deMacBinify(appname,appname & ".CNV") put line i of temp & " Result = ”" &it&"” "&return after card field status add 1 to i end repeat put " -- DONE --" & return after card field status end mouseUp -- part 8 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=222 top=280 right=303 bottom=416 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: DeMacBinify ONE file ----- HyperTalk script ----- on mouseUp put getpathname() into appname if appname = "" then exit to hypercard put "This TRIES to MacDebinify a file !" & return into card field status put "If the file is converted, it is saved with the extension .CNV" & return after card field status put "File you picked =" & appname & return after card field status answer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL" if it = "CANCEL" then put "CANCLED, GOOD THING!" & return after card field status exit to hypercard end if get deMacBinify(appname,appname & ".CNV") put " Result = ”" &it&"” "&return after card field status put " -- DONE --" & return after card field status end mouseUp -- part 9 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=220 top=219 right=242 bottom=414 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: MacBinify ONE file ----- HyperTalk script ----- on mouseUp put getpathname() into appname if appname = "" then exit to hypercard put "This TRIES to MacBinify a file !" & return into card field status put "If the file is converted, it is saved with the extension .CNV" & return after card field status put "File you picked =" & appname & return after card field status answer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL" if it = "CANCEL" then put "CANCLED, GOOD THING!" & return after card field status exit to hypercard end if macBinify appname,appname & ".CNV" put " Result = ”" &it&"” "&return after card field status put " -- DONE --" & return after card field status end mouseUp -- part 10 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=221 top=249 right=272 bottom=415 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Try to MacBinify a FOLDER ----- HyperTalk script ----- on mouseUp put getpathname() into appname if appname = "" then exit to hypercard put "This takes a WHOLE FOLDER and TRIES to MacBinify every file !" & return into card field status put "If a file is converted, it is saved with the extension .CNV" & return after card field status put "Folders inside this one will NOT be affected" & return after card field status put "Path you picked =" & appname & return after card field status put length of appname into i repeat until i <= 0 if char i of appname = ":" then put i into x put 0 into i end if subtract 1 from i end repeat put "" into out put 0 into z repeat until z = x put out & char z of appname into out add 1 to z end repeat put out & ":" into folder put "Using folder path =" & folder & return after card field status answer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL" if it = "CANCEL" then put "CANCLED, GOOD THING!" & return after card field status exit to hypercard end if put files(folder,"",0) into temp put 1 into i -- and show file names repeat until line i of temp is empty put folder & line i of temp into appname macBinify appname,appname & ".CNV" put line i of temp & " Result = ”" &it&"” "&return after card field status add 1 to i end repeat put " -- DONE --" & return after card field status end mouseUp -- part 3 (field) -- low flags: 81 -- high flags: 0004 -- rect: left=57 top=52 right=323 bottom=469 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: info -- part contents for card part 3 ----- text ----- This is a Hypercard HACK ! Nate's Sysop V2.0 Use this at your own risk, and as always: USE IT ON A COPY OF YOUR DATA !! (BACK UP YOUR DATA TOO !!) This simply "MacBinifies" or "DeMacBinifies" a file or a whole folder of files. Use this to prepare files for "Upload Maniac", uploading massive amounts of files to MUBBS ! Have fun! READ THE "READ ME" FILE THAT CAME WITH THIS STACK ! What do you want for nothin' ? (Click anywhere to return)